From b0ebdfe55170d996adf13a5408dd8cec2798ade3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 8 Jun 1993 04:41:00 +0000 Subject: [PATCH] (Info-follow-reference): Fix completion defaulting. --- lisp/info.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 043a4402ce0..1aec6acc629 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -661,11 +661,13 @@ NAME may be an abbreviation of the reference name." (cons (cons str nil) completions)))) (if completions - (list (completing-read (if default - (concat "Follow reference named: (" - default ") ") - "Follow reference named: ") - completions default t)) + (let ((input (completing-read (if default + (concat "Follow reference named: (" + default ") ") + "Follow reference named: ") + completions nil t))) + (list (if (equal input "") + default input))) (error "No cross-references in this node")))) (let (target beg i (str (concat "\\*note " footnotename))) (while (setq i (string-match " " str i)) -- 2.30.2